UserLevel (new) --> nUserLevel:
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

Functions:
~~~~~~~~~~
Get set function to store the privileges of active user (0...999), the
number is supervisor set with user ID and password. It can be used to
enable/disable the program parts according the user rights. For example
some database fields can be expelled from the view for some users (when
creting the view only the fields for privileged user are included in
it). Aplication programmer should call it without parameters to read
the active user privilege rights.

Parameter description:
~~~~~~~~~~~~~~~~~~~~~~
new: new privilege rights level for active user

Return value:
~~~~~~~~~~~~~
number in a range 0...999: active user privilege rights

Source code is in file  ErrorSys.prg.